home *** CD-ROM | disk | FTP | other *** search
| Text File | 1995-11-30 | 2.3 KB | 7 lines | [TEXT/.Ob4] |
- ˜∂‘⁄øKepler8 AttrRect ¿Ÿ’øKeplerGraphs |ObjectDesc Object ¸{self ¬⁄‘øKeplerPorts Port ˚{P Draw ¸{self ã≈¶¶Files res eof tRider ˚{R Read ¸{self ˚{R Write nofpts Star
- p Constellation next tConsDesc ¸{self ˚{R Read ¸{self State ¸{self ˚{R Write texture lineWidth shadow shadowWidth corner $| AttrRectDesc ¸{self ˚{f Draw ¸{self ˚{r Read ¸{self ˚{r Write CircleIntersect x y refcnt sel next xStarDesc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write c l PlanetDesc Planet ¸{self Calc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write x CircleIntersectDesc ¸{self Calc EllipIntersect t EllipIntersectDesc ¸{self Calc ! FilledCircle texture p""" FilledCircleDesc !¸{self ˚{f " Draw !¸{self ˚{r "Read !¸{self ˚{r "Write # RectIntersect l$$$ RectIntersectDesc #¸{self $Calc NewAttrRect
- NewCircleIntersect NewEllipseIntersect NewFilledCircle NewRectIntersect ܵàflDisplay %Frame % dsc %next X
- Y W H %¸{f x&&FrameMsg &˚{msg 'Handler 'handle t((FrameDesc x0 y0 scale ext ($|)) )PortDesc ¸{P ˚{x ) CX ¸{P ˚{y )CY ¸{P ˚{X )Cx ¸{P ˚{Y )Cy ¸{P ˚{x ˙{y ˘{r ¯{col ˜{mode )DrawCircle ¸{P ˚{x ˙{y ˘{a ¯{b ˜{col ˆ{mode )DrawEllipse ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{col ˆ{mode )DrawLine ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{mode )DrawRect ¸{P ˚{x ˙{y *˘{s êØâflFonts +Font +˜{font ˆ{col ı{mode ) DrawString ¸{P ˚{x ˙{y ˘{r ¯{col ˜{pat ˆ{mode )
- FillCircle ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{x3 ˆ{y3 ı{x4 8y4 <col ¿ pat ƒ mode )
- FillQuad ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{pat ı{mode ) FillRect ) !"#$%(
- ,Name , name height "minX $maxX &minY (maxY -Font -,raster 0 4|..FontDesc +. |//Bytes -/
